Creating images with R

with a little bit of magick

My Meme

My meme uses a cartoon image of the Grinch I found online.
The comedy is a little niche and is meant to be absurd in nature and works similarly as an anti-joke. This type of comedy generally becomes amusing once one has seen too many memes. The mundanity and minor shock value becomes comedy when in contrast to other memes the audience would be overstaturated with. It is perhaps enjoyed ironically.

Code for meme.R

library(magick)

funny <- image_read("grinchsmile.jpg")

funnyScaled <- funny %>% 
  image_scale(200) 
# Scale the funny image for ease of viewing.
# Adds funny text
# Saves the funny image

funnyAnnotated <- funnyScaled %>% 
  image_annotate("Me when I commit a petty crime")

funnyAnnotated %>%
  image_write("my_meme.png")
funnyAnnotated

My Animated GIF

My animated GIF is of a person slicing “HOW IT FEELS AT 2AM” which I made at 1 am.

Code for animation.R

library(magick)
# Read all the image names
image_files <- list.files("Spear", pattern = "*.png", full.names = TRUE)

# Put all the read images in a vector for animation
images <- image_read(image_files)
  
# Animate the images
animation <- image_animate(images, delay = 15)

# Write the animation as a .gif
image_write(animation, "animation.gif")